home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / bbs_door / ant12.zip / ANTENNA.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-01-17  |  2KB  |  124 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  2126 bytes  01/28/123  10:14:08pm
  3. '! Code Segment Size  :1158 bytes
  4. '! Data Segment Size  :4495 bytes
  5. '! String Segment Size:968 bytes
  6. '! Compiled with WCC version 4.11
  7.  
  8.       Declare Sub Sub900(i65534 As Integer, s65532 As String, s65530 As String)
  9.  
  10.       Dim s4463 As String
  11.       Dim s4467 As String
  12.       Dim s4471 As String
  13.       Dim s4475 As String
  14.       Dim s4479 As String
  15.       Dim r4483 As Real
  16.  
  17.       Dim s65526_ As String '! Temporary
  18.       Dim s65530_ As String '! Temporary
  19.       Dim i65534_ As Integer '! Temporary
  20.  
  21.       s4463 = "antenna.cfg"
  22.       If Exists(ProgPath + s4463) Then
  23.         Open ProgPath + s4463 For Input As 2
  24.         Input #2, s4467
  25.         Input #2, s4471
  26.         Input #2, s4475
  27.         Input #2, s4479
  28.         Close 2
  29.         GoTo 385
  30.       Else
  31.   136   Cls 
  32.         Print "Looking for antenna.cfg............"
  33.         Print
  34.         Print "There appears to be no config file present"
  35.         Print
  36.         Print "The file is antenna.cfg and if a file of that name exist it will"
  37.         Print "be overwritten. It must be in the directory with antenna.wcx"
  38.         Print
  39.         If InputYesNo("Do you wish to create one ", 1213417543) Then
  40.           Cls 
  41.           Print
  42.           Print "What is the SysOp Name ?"
  43.           Print "";
  44.           Input s4467
  45.           Print
  46.           Print "What is the BBS Name ?"
  47.           Print "";
  48.           Input s4471
  49.           Print
  50.           Print "What is the path to your Display file (antenna.bbs) "
  51.           Print
  52.           Print "for example    C:\WILDCAT\ANTENNA.BBS"
  53.           Print
  54.           Print "";
  55.           Input s4475
  56.           Print
  57.           Print "Who's name should users send messages to about Ham Radio?"
  58.           Print "";
  59.           Input s4479
  60.           Open ProgPath + s4463 For Output As 2
  61.           Print #2, s4467
  62.           Print #2, s4471
  63.           Print #2, s4475
  64.           Print #2, s4479
  65.           Close 2
  66.         End If
  67.       End If
  68.       Do
  69.   385   Cls 
  70.         Locate 1, 13
  71.         Print "@0B@"; s4471 + " @0B@ BBS" + " @0F@  version 1.2@0B@  Sysop@0F@ " + s4467
  72.         If ANSIDetected Then
  73.           DisplayTextFile(s4475)
  74.         End If
  75.   447
  76.         Sub900((10), ("This will get you in the ballpark. Final trimming will be nessassary"), ("@0B@"))
  77.         Locate 14, 10
  78.         Print "Input your frequency in megacycles... 0 to return to BBS  ";
  79.         Locate 20, 17
  80.         Print "Ask@87@ "; s4479; "@0A@ about becomming a Ham@03@"
  81.         Locate 14, 67
  82.         Input r4483
  83.         If r4483 <= 0 Then
  84.           GoTo 862
  85.         End If
  86.   593   ActivityLog "----> Ran Antenna program online....."
  87.         Cls 
  88.         MorePrompt(0)
  89.         Locate 1, 13
  90.         Print "@0B@"; s4471 + " @0B@ BBS" + " @0F@  version 1.2@0B@  Sysop@0F@ " + s4467
  91.         If ANSIDetected Then
  92.           DisplayTextFile(s4475)
  93.         End If
  94.   668   Locate 10, 10
  95.         Print " The length should be approximatly  "; 468 / r4483; " feet."
  96.         Locate 11, 10
  97.         Print " or "; 468 / r4483 * 12; " in."
  98.         Locate 13, 10
  99.         Print " The length of wire in a folded dipole "; 960 / r4483; " feet."
  100.         Locate 14, 10
  101.         Print " or "; 960 / r4483 * 12; " inches."
  102.         Locate 17, 10
  103.         If (InputYesNo("Would you like to figure another antenna? Y/N ", 1213417543)) = 0 Then GoTo 862
  104.       Loop
  105.   862 End 
  106.       End 
  107.  
  108. '! Called 1 time
  109.       Sub Sub900(i65534 As Integer, s65532 As String, s65530 As String)
  110.         Dim l65522 As Long
  111.         Dim i65526 As Integer
  112.         Dim i65528 As Integer
  113.  
  114.         s65532 = s65532 + " "
  115.         s65532 = Left(s65532, Int(Len(s65532) / 2) * 2)
  116.         Print "@NOPAUSE@" + s65530
  117.  1021   For i65528 = 1 To Len(s65532) / 2 Step 1
  118.           Delay 0.03
  119.           Locate i65534, 40 - i65528
  120.           Print Left(s65532, i65528); Right(s65532, i65528)
  121.         Next
  122.  1155
  123.       End Sub
  124.